//OnClick¼룬£

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  MEMORYSTATUS *memory;
  memory = new MEMORYSTATUS();
  memory->dwLength = sizeof(MEMORYSTATUS);
  GlobalMemoryStatus(memory);

  ListBox1->Clear();
  ListBox1->Items->Add("ڴռռڴռİٷֱȣ"+
(String)memory->dwMemoryLoad+"%");
  ListBox1->Items->Add("ܵڴռ䣨Mb"+(String)(memory->dwTotalPhys / 1024 / 1024));
  ListBox1->Items->Add("ڴռ䣨Mb"+(String)(memory->dwAvailPhys / 1024 / 1024));
  ListBox1->Items->Add("ܵҳ潻ļռ䣨Mb"+
(String)(memory->dwTotalPageFile / 1024 / 1024));
  ListBox1->Items->Add("ҳ潻ļռ䣨Mb"+
(String)(memory->dwAvailPageFile / 1024 / 1024));
  ListBox1->Items->Add("ܵڴ棨Mb"+(String)(memory->dwTotalVirtual / 1024 / 1024));
  ListBox1->Items->Add("ڴ棨Mb"+(String)(memory->dwAvailVirtual / 1024 / 1024));
}

